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INTEGER m(1000),n(2000),p(3000) 
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!$OMP PARALLEL 
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!$OMP DO 
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DO i=1,1000 
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m(i)=i 
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END DO 
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!$OMP END DO NOWAIT 
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!$OMP DO 
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DO i=1,2000 
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n(i)=i*2 


12 


END DO 
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!$OMP END DO NOWAIT 
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!$OMP DO 
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DO i=1,3000 
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p(i)=i*3 
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END DO 
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!$OMP END DO NOWAIT 
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!$OMP END PARALLEL 
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END 
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